Celestin Apprentice 4/Apprentice-Release4.iso/Source Code/Libraries/DCLAP 4j/SeqPups/apps/clustalw.src/gcgcheck.c

C/C++ Source or Header | 1995-12-17 | 299 b | 17 lines | [TEXT/R*ch]

#include <ctype.h>   /* because of toupper() */

int SeqGCGCheckSum(char *, int);


int SeqGCGCheckSum(char *seq, int len)
{
    int  i;
        long check;

        for( i=0, check=0; i< len; i++,seq++)
                check += ((i % 57)+1) * toupper(*seq);

        return(check % 10000);
}